home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00160.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  861 b   |  32 lines
  1. on exitFrame
  2.   global ppl, mnv, objc, foes, pwr, advance, psyprop, soundspath, heart
  3.   psyprop = 0
  4.   advance = 6
  5.   puppetSprite(1, 1)
  6.   ppl = [10, 11, 12, 13]
  7.   mnv = [0, 0, 0, 0]
  8.   ccc = getAt(pwr, 1)
  9.   pwr = [ccc, 75, 60]
  10.   objc = [EMPTY, EMPTY, "trochr"]
  11.   set the keyUpScript to "psyreg"
  12.   set the keyDownScript to "psyregb"
  13.   repeat with i = 10 to 13
  14.     sprite(i).visible = 1
  15.     set the constraint of sprite i to 39
  16.     puppetSprite(i, 1)
  17.   end repeat
  18.   set the locH of sprite 10 to 20
  19.   set the locV of sprite 10 to 400
  20.   sprite(41).visible = 0
  21.   sprite(4).visible = 0
  22.   foes = [162, 162]
  23.   set the locH of sprite 11 to 660
  24.   set the locV of sprite 11 to 370
  25.   set the locH of sprite 12 to 520
  26.   set the locV of sprite 12 to 400
  27.   puppetSprite(31, 0)
  28.   sound playFile 1, soundspath & "281"
  29.   heart = 9
  30.   set the locH of sprite 5 to 10 + random(620)
  31. end
  32.